home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtbnd53.zip / BNDSRC.ZIP / DEMO04.DFM / DEMO04.txt next >
Text File  |  1997-02-16  |  18KB  |  748 lines
  1. object FBDemo04: TFBDemo04
  2.   Left = 320
  3.   Top = 175
  4.   Width = 576
  5.   Height = 464
  6.   ActiveControl = Panel1
  7.   Caption = 'FBDemo04'
  8.   Font.Color = clWindowText
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 1000
  20.     Height = 50
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object DBNavigator: TDBNavigator
  24.       Left = 10
  25.       Top = 10
  26.       Width = 280
  27.       Height = 31
  28.       DataSource = DataSource1
  29.       Ctl3D = False
  30.       ParentCtl3D = False
  31.       TabOrder = 0
  32.     end
  33.   end
  34.   object CBReport1: TCBReport
  35.     Left = 8
  36.     Top = 56
  37.     Width = 992
  38.     Height = 1403
  39.     Font.Color = clWindowText
  40.     Font.Height = 16
  41.     Font.Name = 'Arial'
  42.     Font.Style = []
  43.     Color = 15794175
  44.     ParentFont = False
  45.     Frame.Color = clSilver
  46.     Frame.Left = frSingleThin
  47.     Frame.Right = frSingleThin
  48.     Frame.Top = frSingleThin
  49.     Frame.Bottom = frSingleThin
  50.     About = 'Version 5.34'
  51.     AboutRegistered = 'LUKE GREWS'
  52.     Bands.Detail = Detail
  53.     Bands.Title = Title
  54.     Bands.PageFooter = PageFooter
  55.     Viewer.BkColor = 11234567
  56.     Viewer.Heading = 'BandIt Viewer'
  57.     Viewer.ShowCancelDialog = True
  58.     Viewer.MinimizeRunForm = False
  59.     Viewer.ZoomPercentage = 100.000000000000000000
  60.     Page.FrameStyle = frThin
  61.     Page.MarginLeft = 0.400000000000000000
  62.     Page.MarginTop = 0.400000000000000000
  63.     Page.MarginRight = 0.400000000000000000
  64.     Page.PaperSize = A4
  65.     OutputTo = poViewer
  66.     Orientation = Default
  67.     Units = poInches
  68.     Copies = 1
  69.     LineSpacing = 2.500000000000000000
  70.     RewindBeforePrint = True
  71.     object Panel3: TPanel
  72.       Left = 49
  73.       Top = 1299
  74.       Width = 894
  75.       Height = 55
  76.       Align = alBottom
  77.       Caption = 'Panel3'
  78.       Color = clBlue
  79.       TabOrder = 0
  80.       object Label6: TLabel
  81.         Left = 16
  82.         Top = 8
  83.         Width = 113
  84.         Height = 19
  85.         AutoSize = False
  86.         Caption = 'Ship Date'
  87.         Font.Color = clWhite
  88.         Font.Height = -15
  89.         Font.Name = 'Arial'
  90.         Font.Style = [fsBold]
  91.         ParentFont = False
  92.       end
  93.       object Label7: TLabel
  94.         Left = 16
  95.         Top = 32
  96.         Width = 113
  97.         Height = 19
  98.         AutoSize = False
  99.         Caption = 'Order Number'
  100.         Font.Color = clWhite
  101.         Font.Height = -15
  102.         Font.Name = 'Arial'
  103.         Font.Style = [fsBold]
  104.         ParentFont = False
  105.       end
  106.       object Label8: TLabel
  107.         Left = 152
  108.         Top = 32
  109.         Width = 169
  110.         Height = 19
  111.         AutoSize = False
  112.         Caption = 'Customer Number'
  113.         Font.Color = clWhite
  114.         Font.Height = -15
  115.         Font.Name = 'Arial'
  116.         Font.Style = [fsBold]
  117.         ParentFont = False
  118.       end
  119.       object Label9: TLabel
  120.         Left = 344
  121.         Top = 32
  122.         Width = 113
  123.         Height = 19
  124.         AutoSize = False
  125.         Caption = 'Purchase Order'
  126.         Font.Color = clWhite
  127.         Font.Height = -15
  128.         Font.Name = 'Arial'
  129.         Font.Style = [fsBold]
  130.         ParentFont = False
  131.       end
  132.       object Label11: TLabel
  133.         Left = 496
  134.         Top = 32
  135.         Width = 57
  136.         Height = 19
  137.         AutoSize = False
  138.         Caption = 'Terms'
  139.         Font.Color = clWhite
  140.         Font.Height = -15
  141.         Font.Name = 'Arial'
  142.         Font.Style = [fsBold]
  143.         ParentFont = False
  144.       end
  145.       object Label12: TLabel
  146.         Left = 584
  147.         Top = 32
  148.         Width = 113
  149.         Height = 19
  150.         AutoSize = False
  151.         Caption = 'Pay Method'
  152.         Font.Color = clWhite
  153.         Font.Height = -15
  154.         Font.Name = 'Arial'
  155.         Font.Style = [fsBold]
  156.         ParentFont = False
  157.       end
  158.       object Label13: TLabel
  159.         Left = 686
  160.         Top = 32
  161.         Width = 91
  162.         Height = 19
  163.         Alignment = taRightJustify
  164.         AutoSize = False
  165.         Caption = 'Items Total'
  166.         Font.Color = clWhite
  167.         Font.Height = -15
  168.         Font.Name = 'Arial'
  169.         Font.Style = [fsBold]
  170.         ParentFont = False
  171.       end
  172.       object Label10: TLabel
  173.         Left = 782
  174.         Top = 32
  175.         Width = 99
  176.         Height = 19
  177.         Alignment = taRightJustify
  178.         AutoSize = False
  179.         Caption = 'Amount Paid'
  180.         Font.Color = clWhite
  181.         Font.Height = -15
  182.         Font.Name = 'Arial'
  183.         Font.Style = [fsBold]
  184.         ParentFont = False
  185.       end
  186.     end
  187.     object Detail: TCBDetailBand
  188.       Left = 49
  189.       Top = 241
  190.       Width = 894
  191.       Height = 56
  192.       Color = clWhite
  193.       Frame.Color = clSilver
  194.       Frame.Left = frNone
  195.       Frame.Right = frNone
  196.       Frame.Top = frNone
  197.       Frame.Bottom = frNone
  198.       Align = alTop
  199.       BandType = cbDetail
  200.       DetailMainHeaderBand = DetailMainHeader
  201.       DetailTotalBand = DetailTotal
  202.       DataSource = DataSource1
  203.       object DBText1: TDBText
  204.         Left = 8
  205.         Top = 27
  206.         Width = 65
  207.         Height = 17
  208.         DataField = 'OrderNo'
  209.         DataSource = DataSource1
  210.         Font.Color = clBlack
  211.         Font.Height = -17
  212.         Font.Name = 'Arial'
  213.         Font.Style = [fsBold]
  214.         ParentFont = False
  215.       end
  216.       object EditShipDate: TDBEdit
  217.         Left = 10
  218.         Top = 2
  219.         Width = 127
  220.         Height = 23
  221.         BorderStyle = bsNone
  222.         DataField = 'ShipDate'
  223.         DataSource = DataSource1
  224.         Font.Color = clBlack
  225.         Font.Height = -17
  226.         Font.Name = 'Arial'
  227.         Font.Style = [fsBold]
  228.         MaxLength = 0
  229.         ParentFont = False
  230.         TabOrder = 0
  231.       end
  232.       object EditCustNo: TDBEdit
  233.         Left = 154
  234.         Top = 8
  235.         Width = 143
  236.         Height = 32
  237.         BorderStyle = bsNone
  238.         DataField = 'CustNo'
  239.         DataSource = DataSource1
  240.         Font.Color = clBlue
  241.         Font.Height = -20
  242.         Font.Name = 'Arial'
  243.         Font.Style = [fsBold]
  244.         MaxLength = 0
  245.         ParentFont = False
  246.         TabOrder = 1
  247.       end
  248.       object EditPO: TDBEdit
  249.         Left = 338
  250.         Top = 22
  251.         Width = 126
  252.         Height = 24
  253.         BorderStyle = bsNone
  254.         DataField = 'PO'
  255.         DataSource = DataSource1
  256.         Font.Color = clBlack
  257.         Font.Height = -17
  258.         Font.Name = 'Arial'
  259.         Font.Style = [fsBold]
  260.         MaxLength = 15
  261.         ParentFont = False
  262.         TabOrder = 2
  263.       end
  264.       object EditTerms: TDBEdit
  265.         Left = 466
  266.         Top = 22
  267.         Width = 63
  268.         Height = 24
  269.         BorderStyle = bsNone
  270.         DataField = 'Terms'
  271.         DataSource = DataSource1
  272.         Font.Color = clBlack
  273.         Font.Height = -17
  274.         Font.Name = 'Arial'
  275.         Font.Style = [fsBold]
  276.         MaxLength = 6
  277.         ParentFont = False
  278.         TabOrder = 3
  279.       end
  280.       object EditPaymentMethod: TDBEdit
  281.         Left = 554
  282.         Top = 22
  283.         Width = 70
  284.         Height = 24
  285.         BorderStyle = bsNone
  286.         DataField = 'PaymentMethod'
  287.         DataSource = DataSource1
  288.         Font.Color = clBlack
  289.         Font.Height = -17
  290.         Font.Name = 'Arial'
  291.         Font.Style = [fsBold]
  292.         MaxLength = 7
  293.         ParentFont = False
  294.         TabOrder = 4
  295.       end
  296.       object EditItemsTotal: TDBEdit
  297.         Left = 650
  298.         Top = 22
  299.         Width = 91
  300.         Height = 24
  301.         BorderStyle = bsNone
  302.         DataField = 'ItemsTotal'
  303.         DataSource = DataSource1
  304.         Font.Color = clBlack
  305.         Font.Height = -17
  306.         Font.Name = 'Arial'
  307.         Font.Style = [fsBold]
  308.         MaxLength = 0
  309.         ParentFont = False
  310.         TabOrder = 5
  311.       end
  312.       object EditAmountPaid: TDBEdit
  313.         Left = 794
  314.         Top = 22
  315.         Width = 91
  316.         Height = 24
  317.         BorderStyle = bsNone
  318.         DataField = 'AmountPaid'
  319.         DataSource = DataSource1
  320.         Font.Color = clBlack
  321.         Font.Height = -17
  322.         Font.Name = 'Arial'
  323.         Font.Style = [fsBold]
  324.         MaxLength = 0
  325.         ParentFont = False
  326.         TabOrder = 6
  327.       end
  328.     end
  329.     object DetailTotal: TCBBand
  330.       Left = 49
  331.       Top = 297
  332.       Width = 894
  333.       Height = 32
  334.       Color = clWhite
  335.       Frame.Color = clSilver
  336.       Frame.Left = frSingleThin
  337.       Frame.Right = frSingleThin
  338.       Frame.Top = frSingleThin
  339.       Frame.Bottom = frSingleThin
  340.       Align = alTop
  341.       BandType = cbDetailTotal
  342.       object Label30: TLabel
  343.         Left = 456
  344.         Top = 2
  345.         Width = 169
  346.         Height = 25
  347.         Alignment = taCenter
  348.         AutoSize = False
  349.         Caption = 'Order Total '
  350.         Font.Color = clRed
  351.         Font.Height = -23
  352.         Font.Name = 'Times New Roman'
  353.         Font.Style = [fsBold, fsItalic]
  354.         ParentFont = False
  355.       end
  356.       object CBCalc1: TCBCalc
  357.         Left = 611
  358.         Top = 4
  359.         Width = 129
  360.         Height = 23
  361.         DataField = 'ItemsTotal'
  362.         DataSource = DataSource1
  363.         ParentFont = False
  364.         BorderStyle = bsNone
  365.         Color = clWhite
  366.         Font.Color = clRed
  367.         Font.Height = -17
  368.         Font.Name = 'Arial'
  369.         Font.Style = [fsBold]
  370.         DisplayFormat = '$ #,##0.00'
  371.         Text = '$ 0.00'
  372.         Alignment = taRightJustify
  373.         Operation = cbSum
  374.         CalcPosition = cbFooter
  375.       end
  376.       object CBCalc2: TCBCalc
  377.         Left = 779
  378.         Top = 4
  379.         Width = 106
  380.         Height = 25
  381.         DataField = 'AmountPaid'
  382.         DataSource = DataSource1
  383.         ParentFont = False
  384.         BorderStyle = bsNone
  385.         Color = clWhite
  386.         Font.Color = clRed
  387.         Font.Height = -17
  388.         Font.Name = 'Arial'
  389.         Font.Style = [fsBold]
  390.         DisplayFormat = '$ #,##0.00'
  391.         Text = '$ 0.00'
  392.         Alignment = taRightJustify
  393.         Operation = cbSum
  394.         CalcPosition = cbFooter
  395.       end
  396.     end
  397.     object Title: TCBBand
  398.       Left = 49
  399.       Top = 49
  400.       Width = 894
  401.       Height = 144
  402.       Color = clWhite
  403.       Frame.Color = clSilver
  404.       Frame.Left = frSingleThin
  405.       Frame.Right = frSingleThin
  406.       Frame.Top = frSingleThin
  407.       Frame.Bottom = frSingleThin
  408.       Align = alTop
  409.       BandType = cbTitle
  410.       object Label5: TLabel
  411.         Left = 295
  412.         Top = 72
  413.         Width = 305
  414.         Height = 46
  415.         Alignment = taCenter
  416.         AutoSize = False
  417.         Caption = 'from Calitz Bros.'
  418.         Font.Color = clMaroon
  419.         Font.Height = -40
  420.         Font.Name = 'Times New Roman'
  421.         Font.Style = [fsBold, fsItalic]
  422.         ParentFont = False
  423.       end
  424.       object Image1: TImage
  425.         Left = 8
  426.         Top = 19
  427.         Width = 49
  428.         Height = 33
  429.         Picture.Data = {<image000.bmp>}
  430.       end
  431.       object Label27: TLabel
  432.         Left = 219
  433.         Top = 24
  434.         Width = 457
  435.         Height = 46
  436.         Alignment = taCenter
  437.         AutoSize = False
  438.         Caption = 'Demo printed with BandIt'
  439.         Font.Color = clMaroon
  440.         Font.Height = -40
  441.         Font.Name = 'Times New Roman'
  442.         Font.Style = [fsBold, fsItalic]
  443.         ParentFont = False
  444.       end
  445.       object CBSystem2: TCBSystem
  446.         Left = 48
  447.         Top = 107
  448.         Width = 193
  449.         Height = 28
  450.         ParentFont = False
  451.         BorderStyle = bsNone
  452.         Font.Color = clWindowText
  453.         Font.Height = -17
  454.         Font.Name = 'Arial'
  455.         Font.Style = []
  456.         Color = clWhite
  457.         Data = cbDateTime
  458.         DisplayFormat = '#,##0.00'
  459.         Text = '0.00'
  460.         Alignment = taLeftJustify
  461.       end
  462.     end
  463.     object DetailMainHeader: TCBBand
  464.       Left = 49
  465.       Top = 193
  466.       Width = 894
  467.       Height = 48
  468.       Color = clBlue
  469.       Frame.Color = clSilver
  470.       Frame.Left = frSingleThin
  471.       Frame.Right = frSingleThin
  472.       Frame.Top = frSingleThin
  473.       Frame.Bottom = frSingleThin
  474.       Align = alTop
  475.       BandType = cbDetailMainHeader
  476.       object Label14: TLabel
  477.         Left = 16
  478.         Top = 2
  479.         Width = 105
  480.         Height = 19
  481.         Caption = 'Ship Date'
  482.         Font.Color = clWhite
  483.         Font.Height = -17
  484.         Font.Name = 'Arial'
  485.         Font.Style = [fsBold]
  486.         ParentFont = False
  487.       end
  488.       object Label19: TLabel
  489.         Left = 16
  490.         Top = 24
  491.         Width = 81
  492.         Height = 19
  493.         Caption = 'Order #'
  494.         Font.Color = clWhite
  495.         Font.Height = -17
  496.         Font.Name = 'Arial'
  497.         Font.Style = [fsBold]
  498.         ParentFont = False
  499.       end
  500.       object Label20: TLabel
  501.         Left = 154
  502.         Top = 21
  503.         Width = 164
  504.         Height = 19
  505.         Caption = 'Customer Number    '
  506.         Font.Color = clWhite
  507.         Font.Height = -17
  508.         Font.Name = 'Arial'
  509.         Font.Style = [fsBold]
  510.         ParentFont = False
  511.       end
  512.       object Label22: TLabel
  513.         Left = 466
  514.         Top = 21
  515.         Width = 59
  516.         Height = 19
  517.         Caption = 'Terms  '
  518.         Font.Color = clWhite
  519.         Font.Height = -17
  520.         Font.Name = 'Arial'
  521.         Font.Style = [fsBold]
  522.         ParentFont = False
  523.       end
  524.       object Label23: TLabel
  525.         Left = 322
  526.         Top = 21
  527.         Width = 125
  528.         Height = 19
  529.         Caption = 'Purchase Order'
  530.         Font.Color = clWhite
  531.         Font.Height = -17
  532.         Font.Name = 'Arial'
  533.         Font.Style = [fsBold]
  534.         ParentFont = False
  535.       end
  536.       object Label24: TLabel
  537.         Left = 554
  538.         Top = 21
  539.         Width = 58
  540.         Height = 19
  541.         Caption = 'Method'
  542.         Font.Color = clWhite
  543.         Font.Height = -17
  544.         Font.Name = 'Arial'
  545.         Font.Style = [fsBold]
  546.         ParentFont = False
  547.       end
  548.       object Label25: TLabel
  549.         Left = 658
  550.         Top = 21
  551.         Width = 95
  552.         Height = 19
  553.         Alignment = taRightJustify
  554.         AutoSize = False
  555.         Caption = 'Items Total'
  556.         Font.Color = clWhite
  557.         Font.Height = -17
  558.         Font.Name = 'Arial'
  559.         Font.Style = [fsBold]
  560.         ParentFont = False
  561.       end
  562.       object Label26: TLabel
  563.         Left = 776
  564.         Top = 21
  565.         Width = 105
  566.         Height = 19
  567.         Alignment = taRightJustify
  568.         AutoSize = False
  569.         Caption = 'Amount Paid'
  570.         Font.Color = clWhite
  571.         Font.Height = -17
  572.         Font.Name = 'Arial'
  573.         Font.Style = [fsBold]
  574.         ParentFont = False
  575.       end
  576.       object Label31: TLabel
  577.         Left = 554
  578.         Top = 5
  579.         Width = 73
  580.         Height = 19
  581.         Caption = 'Payment '
  582.         Font.Color = clWhite
  583.         Font.Height = -17
  584.         Font.Name = 'Arial'
  585.         Font.Style = [fsBold]
  586.         ParentFont = False
  587.       end
  588.     end
  589.     object PageFooter: TCBBand
  590.       Left = 49
  591.       Top = 329
  592.       Width = 894
  593.       Height = 59
  594.       Color = clWhite
  595.       Frame.Color = clSilver
  596.       Frame.Left = frSingleThin
  597.       Frame.Right = frSingleThin
  598.       Frame.Top = frSingleThin
  599.       Frame.Bottom = frSingleThin
  600.       Align = alTop
  601.       BandType = cbPageFooter
  602.       object Image2: TImage
  603.         Left = 8
  604.         Top = 12
  605.         Width = 49
  606.         Height = 33
  607.         Picture.Data = {<image001.bmp>}
  608.       end
  609.       object Label29: TLabel
  610.         Left = 219
  611.         Top = 3
  612.         Width = 457
  613.         Height = 49
  614.         Alignment = taCenter
  615.         AutoSize = False
  616.         Caption = 'Page Footer'
  617.         Font.Color = clMaroon
  618.         Font.Height = -40
  619.         Font.Name = 'Times New Roman'
  620.         Font.Style = [fsBold, fsItalic]
  621.         ParentFont = False
  622.       end
  623.       object Label28: TLabel
  624.         Left = 755
  625.         Top = 13
  626.         Width = 59
  627.         Height = 26
  628.         Caption = 'Page '
  629.         Font.Color = clBlack
  630.         Font.Height = -23
  631.         Font.Name = 'Arial'
  632.         Font.Style = []
  633.         ParentFont = False
  634.       end
  635.       object CBSystem1: TCBSystem
  636.         Left = 824
  637.         Top = 12
  638.         Width = 60
  639.         Height = 31
  640.         ParentFont = False
  641.         BorderStyle = bsNone
  642.         Font.Color = clBlack
  643.         Font.Height = -23
  644.         Font.Name = 'Arial'
  645.         Font.Style = []
  646.         Color = clWhite
  647.         Data = cbPageNumber
  648.         DisplayFormat = '0'
  649.         Text = '1'
  650.         Alignment = taRightJustify
  651.       end
  652.     end
  653.   end
  654.   object DataSource1: TDataSource
  655.     DataSet = Table1
  656.     Left = 287
  657.     Top = 5
  658.   end
  659.   object Table1: TTable
  660.     Active = True
  661.     DatabaseName = 'DBDEMOS'
  662.     TableName = 'ORDERS.DB'
  663.     Left = 259
  664.     Top = 5
  665.     object Table1OrderNo: TFloatField
  666.       FieldName = 'OrderNo'
  667.       DisplayFormat = #39'#'#39'0000'
  668.     end
  669.     object Table1CustNo: TFloatField
  670.       Alignment = taLeftJustify
  671.       FieldName = 'CustNo'
  672.       DisplayFormat = 'CN 0000'
  673.       MaxValue = 9999.000000000000000000
  674.       MinValue = 1000.000000000000000000
  675.     end
  676.     object Table1SaleDate: TDateTimeField
  677.       FieldName = 'SaleDate'
  678.     end
  679.     object Table1ShipDate: TDateTimeField
  680.       FieldName = 'ShipDate'
  681.     end
  682.     object Table1EmpNo: TIntegerField
  683.       FieldName = 'EmpNo'
  684.       DisplayFormat = 'Emp'#39'#'#39' 0000'
  685.       MaxValue = 9999
  686.       MinValue = 1
  687.     end
  688.     object Table1ShipToContact: TStringField
  689.       FieldName = 'ShipToContact'
  690.     end
  691.     object Table1ShipToAddr1: TStringField
  692.       FieldName = 'ShipToAddr1'
  693.       Size = 30
  694.     end
  695.     object Table1ShipToAddr2: TStringField
  696.       FieldName = 'ShipToAddr2'
  697.       Size = 30
  698.     end
  699.     object Table1ShipToCity: TStringField
  700.       FieldName = 'ShipToCity'
  701.       Size = 15
  702.     end
  703.     object Table1ShipToState: TStringField
  704.       FieldName = 'ShipToState'
  705.     end
  706.     object Table1ShipToZip: TStringField
  707.       FieldName = 'ShipToZip'
  708.       Size = 10
  709.     end
  710.     object Table1ShipToCountry: TStringField
  711.       FieldName = 'ShipToCountry'
  712.     end
  713.     object Table1ShipToPhone: TStringField
  714.       FieldName = 'ShipToPhone'
  715.       Size = 15
  716.     end
  717.     object Table1ShipVIA: TStringField
  718.       FieldName = 'ShipVIA'
  719.       Size = 7
  720.     end
  721.     object Table1PO: TStringField
  722.       FieldName = 'PO'
  723.       Size = 15
  724.     end
  725.     object Table1Terms: TStringField
  726.       FieldName = 'Terms'
  727.       Size = 6
  728.     end
  729.     object Table1PaymentMethod: TStringField
  730.       FieldName = 'PaymentMethod'
  731.       Size = 7
  732.     end
  733.     object Table1ItemsTotal: TCurrencyField
  734.       FieldName = 'ItemsTotal'
  735.     end
  736.     object Table1TaxRate: TFloatField
  737.       FieldName = 'TaxRate'
  738.       DisplayFormat = '0.00%'
  739.     end
  740.     object Table1Freight: TCurrencyField
  741.       FieldName = 'Freight'
  742.     end
  743.     object Table1AmountPaid: TCurrencyField
  744.       FieldName = 'AmountPaid'
  745.     end
  746.   end
  747. end
  748.